home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
qsam300.zip
/
QSTEST.BAS
< prev
Wrap
BASIC Source File
|
1989-04-05
|
2KB
|
94 lines
'{QSAM TEST 1.03 APR 5, 1989}
REM $INCLUDE: 'QSAM300.BI'
DEFINT A-Z
CLS
kf$ = "testkey.fil"
df$ = "testdat.fil"
LOCATE 25, 1
PRINT "n>nx q>Q d>delk D>delkr r>rewk i>ins c>crekr w>rewr 1>katr 2>datr";
VIEW PRINT 1 TO 24
'GOTO there
PRINT "creating key file "; kf$; " stat="; Qcreatkf(kf$, 7, "K")
PRINT "creating dat file "; df$; " stat="; Qcreatdf(df$, 32)
PRINT kf$, df$
PRINT " opening key file "; kf$; " stat="; Qopenk(kf$, 1)
PRINT " opening dat file "; df$; " stat="; Qopend(df$, 1)
FOR i = 1 TO 500
ky$ = "key" + LTRIM$(STR$(i))
dr$ = "dat" + LTRIM$(STR$(i))
PRINT
PRINT "ADDING key: "; ky$; " data: "; dr$; " stat="; Qcreatkr(1, 1, ky$, dr$)
IF stat <> 0 THEN
BEEP
STOP
END IF
NEXT
PRINT
PRINT "closing key file 1 stat="; Qclosek(1)
PRINT "closing dat file 1 stat="; Qclosed(1)
PRINT
there:
PRINT " opening key file "; kf$; " stat="; Qopenk(kf$, 1)
PRINT " opening dat file "; df$; " stat="; Qopend(df$, 1)
PRINT
ky$ = "key1"
st = Qreadkr(1, 1, ky$, dr$)
PRINT ky$; "="; dr$; " stat="; st
PRINT
DO WHILE 1
a$ = INPUT$(1)
SELECT CASE a$
CASE "A"
DO WHILE st = 0
st = Qreadnkr(1, 1, ky$, dr$)
PRINT ky$; "="; dr$; " stat="; st
LOOP
CASE "n"
st = Qreadnkr(1, 1, ky$, dr$)
PRINT ky$; "="; dr$; " stat="; st
CASE "q"
EXIT DO
CASE "d"
PRINT "delete key stat="; Qdelk(1, ky$)
CASE "r"
PRINT "rewind key file stat="; Qrewindk(1)
CASE "i"
INPUT "key"; k$
PRINT "inserting key stat="; Qinsertk(1, 1, k$)
CASE "w"
INPUT "drec"; d$
PRINT "overwritting stat="; Qwritedr(1, d$)
CASE "1"
st = Qfileattrk(1, kl, keys&, bf, ft$)
PRINT "klen="; kl; "keys="; keys&; "bfile="; bf; "type="; ft$; " stat="; st
CASE "2"
st = Qfileattrd(1, rl, recs&, bf, ft$)
PRINT "rlen="; rl; "recs="; recs&; "bfile="; bf; "type="; ft$; " stat="; st
CASE "k"
INPUT " key"; ky$
st = Qreadkr(1, 1, ky$, dr$)
PRINT ky$; "="; dr$; " stat="; st
CASE "c"
INPUT "create key+rec"; k$, d$
PRINT Qcreatkr(1, 1, k$, d$)
CASE ELSE
END SELECT
PRINT
LOOP
PRINT "closing key file 1 stat="; Qclosek(1)
PRINT "closing dat file 1 stat="; Qclosed(1)
LOCATE 24, 1
SYSTEM